1st Multimedia Mac Shareware/Multimedia Shareware CD-ROM - BetaCorp.iso/Demosƒ/Task Master v1.0d⁄lock/Task Master v1.0d_lock/stack_-1.xml

Extensible Markup Language | 1992-07-26 | 11.9 KB | 28 lines

<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
    <name>in.0d_lock</name>
    <id>-1</id>
    <cardCount>6</cardCount>
    <cardID>3012</cardID>
    <listID>5352</listID>
    <cantModify><false /></cantModify>
    <cantDelete><false /></cantDelete>
    <cantAbort><false /></cantAbort>
    <cardSize>
        <width>512</width>
        <height>342</height>
    </cardSize>
    <script>on openStack
-- ChangeCursor©1988 & ShowDialog XCMDs by Jay Hodgdon
global priorLevel, index, newName, flag, flag2
global levelHolder, start, ending, dayTotal,mainFactor
global fieldPercent, taskPercent
global startSec, endSec, endTwo, taskLength, totalLength
global TLx, TLy, BRx, BRy, BRy2, TLy2, topLeft, botRight
---
put the id of this cd into cardTemp
put last word of cardTemp into cardTemp
if cardTemp = 3012 then
put long name of this stack into pathname
delete first word of pathname
set lockscreen to true
show bkgnd btn "Task Master©"
get script of bkgnd btn "Task Master©"
delete word 2 of line 5 of it
put ""&&pathname after word 1 of line 5 of it
set the script of bkgnd btn "Task Master©" to it
hide bkgnd btn "Task Master©"
set lockscreen to false
flasher 4, the rect of bkgnd btn id 29
end if
---
show menuBar
put the userLevel into priorLevel
set the userLevel to 5
push recent cd
end openStack
-----------------------------------------------------------------------
on closeStack
global priorLevel
put priorLevel into userLevel
end closeStack
-----------------------------------------------------------------------
on doMenu which
pass doMenu
end doMenu
-----------------------------------------------------------------------
on redrawSubTasks
global flag2

beep
showDialog 2, 4741, "Enter the number of subtasks that you "&¬
"are tracking.  (A single digit… from 1 to 8)","","","1 to 3 tasks for demo v1.0!"
if the result is empty or the result = "1 to 3 tasks for demo v1.0!" then
exit redrawSubTasks else
put the result into numTasks  -- number of tasks to update
go to this cd
if numTasks > 3 then  -- too many tasks requested
beep
answer "Sorry!  You’re limited to a maximum of 3 subtasks"&¬
" in the demo v1.0…  Try again!" with "Oops!"
exit redrawSubTasks
end if

if bkgnd fld "S1-SD" is empty then  -- there are no tasks to update!
hide msg
exit redrawSubTasks
end if

choose Browse tool  -- and away we go!
put 1 into flag2
set cursor to 4
play harpsichord "gq"
set the loc of msg to 17,146
put "Updating the subtask bar chart graphics…" into msg
go to this cd

put "Updating the subtask bar chart graphics… Subtask #1" into msg
click at 40,190   -- redraw subtask 1
put 1 into temp   -- counter to 1
if temp = numTasks then
do "hider3"
exit redrawSubTasks
end if

if bkgnd fld "S2-SD" is empty then  -- no more subtasks after #1
do "hider3"
exit redrawSubTasks
end if

put "Updating the subtask bar chart graphics… Subtask #2" into msg
click at 40,205  -- redraw subtask 2
add 1 to temp    -- counter to 2
if temp = numTasks then
do "hider3"
exit redrawSubTasks
end if

if bkgnd fld "S3-SD" is empty then  -- no more subtasks after #2
do "hider3"
exit redrawSubTasks
end if

put "Updating the subtask bar chart graphics… Subtask #3" into msg
click at 40,220  -- redraw subtask 3
add 1 to temp  -- counter to 3
if temp = numTasks then
do "hider3"
exit redrawSubTasks
end if

if fld "S4-SD" is empty then  -- no more subtasks after #3
do "hider3"
exit redrawSubTasks
end if

put "Updating the subtask bar chart graphics… Subtask #4" into msg
click at 40,233  -- redraw subtask 4
add 1 to temp  --counter to 4
if temp = numTasks then
do "hider3"
exit redrawSubTasks
end if

if fld "S5-SD" is empty then  -- no more subtasks after #4
do "hider3"
exit redrawSubTasks
end if

put "Updating the subtask bar chart graphics… Subtask #5" into msg
click at 40,247  -- redraw subtask 5
add 1 to temp  -- counter to 5
if temp = numTasks then
do "hider3"
exit redrawSubTasks
end if

if fld "S6-SD" is empty then  -- no more subtasks after #5
do "hider3"
exit redrawSubTasks
end if

put "Updating the subtask bar chart graphics… Subtask #6" into msg
click at 40,261  -- redraw subtask 6
add 1 to temp  -- counter to 6
if temp = numTasks then
do "hider3"
exit redrawSubTasks
end if

if fld "S7-SD" is empty then  -- no more subtasks after #6
do "hider3"
exit redrawSubTasks
end if

put "Updating the subtask bar chart graphics… Subtask #7" into msg
click at 40,275  -- redraw subtask 7
add 1 to temp -- counter to 7
if temp = numTasks then
do "hider3"
exit redrawSubTasks
end if

if fld "S8-SD" is empty then  -- no more subtasks after #7
do "hider3"
exit redrawSubTasks
end if

put "Updating the subtask bar chart graphics… Subtask #8" into msg
click at 40,287  -- redraw subtask 8
do "hider3"
end if
put 0 into flag2
end redrawSubTasks
-----------------------------------------------------------------------
on hider3
click at 240,165
hide msg
end hider3
-----------------------------------------------------------------------
on taskReport
show bkgnd fld id 157
show bkgnd fld id 164
show bkgnd btn id 161
show bkgnd btn id 163
show bkgnd btn id 160
set the scroll of bkgnd field id 157 to 0
end taskReport
-----------------------------------------------------------------------
on saveTaskAs
put bkgnd fld id 164 into temp
if temp is empty then
put bkgnd fld id 12 into temp
end if
get NewFileName("Save “Task Report” as…",temp)
beep
go to this cd
answer "Disk-save is not supported in the Demo v1.0 as it is in TaskMaster© v2.0" with "OK"
end saveTaskAs
-----------------------------------------------------------------------
on taskMasterHelp
push cd
visual dissolve to gray
visual dissolve slowly to gray
visual dissolve to cd
go to cd id 5991
set the scroll of fld id 1 to 0
end taskMasterHelp
-----------------------------------------------------------------------
on TMbuttonMaker
global levelHolder
play "Boing" gh
answer "This will load a TaskMaster© stack button onto "&¬
"your “Home” card?" with "Go ahead!" or "Cancel"
if it is "Go ahead!" then
put the userLevel into levelHolder
show bkgnd fld "Pasting Field"
show bkgnd btn "Task Master©"
set lockScreen to true
set cursor to 4
get the loc of bkgnd btn "Task Master©"
choose Button tool
click at it
doMenu "Copy Button"
push cd
go home
set the userLevel to 5
doMenu "Paste Button"
pop cd
play "Boing" gh
choose Browse tool
set lockScreen to false
show bkgnd fld "Successful Paste"
hide bkgnd fld "Pasting Field"
wait 150 ticks
hide bkgnd btn "Task Master©"
hide bkgnd fld "Successful Paste"
set the userLevel to levelHolder
end if
end TMbuttonMaker
-----------------------------------------------------------------------
on QuitTaskMaster
do "closeStack"
go  Home
end QuitTaskMaster
-----------------------------------------------------------------------
on updateMes
play harpsichord tempo 400 "gq"
set the loc of msg to 17,146
put "Updating the sub-task bar chart graphics…" into msg
show msg
end updateMes
-----------------------------------------------------------------------
on closeLabels
hide bkgnd fld id 67
hide bkgnd fld id 68
hide bkgnd fld id 69
hide bkgnd fld id 19
hide bkgnd fld "hider1"
hide msg
end closeLabels
-----------------------------------------------------------------------
on showLabels
show bkgnd fld "hider1"
show bkgnd fld id 19
show bkgnd fld id 67
show bkgnd fld id 68
show bkgnd fld id 69
end showLabels
-----------------------------------------------------------------------
on createTaskCard
global index, newName
set the loc of msg to 17,303
---
showDialog 2, 4741, "Enter a title for your new task… this will show in"&¬
" the card title and on the “Index Card” button…","","","Maximum 28 characters!"
if the result is empty or the result = "Maximum 28 characters!" then
exit createTaskCard
else
put the result into newName
if the length of newName > 28 then
beep
answer "Try again!  You entered a title that contained"&¬
" more than 28 characters!" with "OK"
exit createTaskCard
else
put the number of words of newName into wordTotal
repeat with x = 1 to wordTotal
put the CharToNum of first character of word x of newName into temp
if temp >= 97 and temp <= 122 then
put temp - 32 into temp
put the NumToChar of temp into first character of word x of newName
end if
end repeat
---
set cursor to 4
set lockScreen to true
put the id of this cd into masterIndex
go to card "Master Task Card"
doMenu "Copy Card"
go to masterIndex
doMenu "Paste Card"
---
put newName into fld "Task Title"
put "Untitled" into fld id 164
put item 2 to 3 of the long date into fld "current date"
put empty into bkgnd fld id 152
set the name of this cd to newName
put the id of this cd into temp
put " % Completed:" into line 1 of fld id 67
put "    Description:" into line 2 of fld id 67
put "Responsibility:" into line 3 of fld id 67
put "      Resources:" into line 4 of fld id 67
put "     Comments:" into line 5 of fld id 67
put "Start Date:" into line 1 of fld id 68
put "Finish Date:" into line 1 of fld id 69
---
go to masterIndex
set the script of this cd to empty
doMenu "New Button"
set rect of btn "New Button" to 200,100,445,117
set textStyle of btn "New Button" to plain
set textSize of btn "New Button" to 12
set textFont of btn "New Button" to Chicago
set textAlign of btn "New Button" to left
set showName of btn "New Button" to true
set the style of btn "New Button" to transparent
set name of btn "New Button" to newName
put "on mouseUp" into line 1 of newScript
put "flasher 2, the rect of me" into line 2 of newScript
put "put newTopic("& quote & temp & quote & ") into dummy" ¬
into line 3 of newScript
put "hide msg" into line 4 of newScript
put "push cd" into line 5 of newScript
put "visual dissolve to gray" into line 6 of newScript
put "visual dissolve to cd" into line 7 of newScript
put "go to" && temp into line 8 of newScript
put "end mouseUp" into line 9 of newScript
set script of btn newName to newScript
set lockScreen to False
flasher 3, the rect of btn newName
put "Drag new button to appropriate location and press Command-Tab" into msg
show msg
end if
end if
end createTaskCard
-----------------------------------------------------------------------
function newTopic num
put the id of this cd into index
if the commandKey is down then
choose button tool
click at the clickLoc
get the short name of the target
put item 1 of the clickLoc into x
put item 2 of the clickLoc into y
beep
answer "Delete this task and all it’s data?  You can’t undo this"&¬
" once it’s done!" with "Go ahead!" or "Cancel"
if it is "Go ahead!" then
set cursor to 4
set the loc of msg to 17,303
put "Deleting task button and compacting the stack…" into msg
show msg
click at x,y
doMenu "Cut Button"
set lockScreen to True
go to num
doMenu "Delete card"
go to index
doMenu "Compact Stack"
play harpsichord tempo 400 "gq cq"
hide msg
set lockScreen to False
end if
choose browse tool
end if
return num
end newTopic
-------------
on closeReport
set lockScreen to true
hide bkgnd fld id 164
hide bkgnd btn id 161
hide bkgnd btn id 163
hide bkgnd btn id 160
hide bkgnd fld id 157
set lockScreen to false
end closeReport
--------------------------------------------------------
on idle
put the userLevel into tempLevel
if tempLevel>4 then
set the userLevel to 4
end if
pass idle
end idle
</script>
    <background id="2263" file="background_2263.xml" name="Master Index Bkgnd" />
    <background id="2455" file="background_2455.xml" name="Master Background 1" />
    <background id="2613" file="background_2613.xml" name="Title Card Background" />
    <background id="4688" file="background_4688.xml" name="" />
    <card id="3012" file="card_3012.xml" marked="false" name="Title Card" owner="2613" />
    <card id="4180" file="card_4180.xml" marked="false" name="Index Card" owner="2263" />
    <card id="4429" file="card_4429.xml" marked="false" name="TaskMaster© Stack Project" owner="2455" />
    <card id="5033" file="card_5033.xml" marked="false" name="Demonstration Task (click!)" owner="2455" />
    <card id="5709" file="card_5709.xml" marked="false" name="Master Task Card" owner="2455" />
    <card id="5991" file="card_5991.xml" marked="false" name="Help Card" owner="4688" />
</stack>